home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSAM.EXE / OPEN.PRG < prev    next >
Text File  |  1993-05-04  |  2KB  |  89 lines
  1. PROCEDURE Open
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   Open - Calls the OpenFile dialog box
  5. *
  6. * DESCRIPTION
  7. *
  8. *----------------------------------------------------------------------------
  9.   *------------------------------------------------
  10.   *-- Code from Procedure IOpenFile in Openfile.prg
  11.   *------------------------------------------------
  12.   PUBLIC ARRAY OPENFILE[ 6 ]
  13.  
  14.     *-- CS_FILE_1 - XXXXXXXXXXXXXXX
  15.     OPENFILE[ 1 ]    = "*.SCR" + SPACE( 75 )
  16.  
  17.     *-- CL_TYPE_1 - XXXXXXXXXXXXXXXXXXXXXXXXXXXXX [v]
  18.     OPENFILE[ 2 ]    = 'Screen files (*.scr)' + SPACE( 11 )
  19.  
  20.     *-- CK_READ_1 - [ ] ~Read-only
  21.     OPENFILE[ 3 ]    = .F.
  22.  
  23.     *-- BT_DEMO -  ~Demo dialog
  24.     OPENFILE[ 4 ]    = .F.
  25.  
  26.     *-- BT_OK -    Ok
  27.     OPENFILE[ 5 ]    = .T.
  28.  
  29.     *-- BT_CANCEL -  Cancel
  30.     OPENFILE[ 6 ]    = .F.
  31.  
  32.   *--------------------------------------------------------------
  33.   *-- FXL_Cancel is set to .T. is the user Cancels the dialog box
  34.   *--------------------------------------------------------------
  35.   FXL_Cancel = .F.
  36.  
  37.   *--------------------------------------------------------------
  38.   *-- FXL_NoChng lets the dialog box know that the values in the
  39.   *-- array are not different from the SCR file defaults.  This
  40.   *-- will allow the dialog box to use the .WIN file for a faster
  41.   *-- startup.
  42.   *--------------------------------------------------------------
  43.   FXL_NoChng = .T.
  44.  
  45.   DO OPENFILE
  46.  
  47.   IF .NOT. FXL_Cancel                   && The user clicked on OK
  48.  
  49.     *-----------------------------------
  50.     *-- Put your Ok processing code here
  51.     *-----------------------------------
  52.     openfile[ 1 ] = TRIM( openfile[ 1 ] )
  53.     cExt = _FileType( openfile[ 1 ] )
  54.  
  55.     DO CASE
  56.       CASE cExt = "PRG"
  57.         IF ED( openfile[ 1 ] )
  58.         ENDIF
  59.  
  60.       CASE cExt = "SCR"
  61.         MODIFY SCREEN ( openfile[ 1 ] )
  62.  
  63.       CASE cExt = "DBF"
  64.         IF OPENFILE[ 3 ]                && Is it read-only?
  65.           USE ( openfile[ 1 ] ) NOUPDATE
  66.         ELSE
  67.           USE ( openfile[ 1 ] )
  68.         ENDIF
  69.         BROWSE
  70.  
  71.       CASE cExt = "DBO"
  72.         DO &openfile[1]
  73.  
  74.       OTHERWISE
  75.         DO _Err_Box WITH [Don't know how to open: ] + TRIM( openfile[ 1 ] )
  76.  
  77.     ENDCASE
  78.  
  79.   ENDIF
  80.  
  81.   RELEASE OPENFILE
  82.  
  83.  
  84. RETURN
  85. *-- EOP: Open WITH 
  86.  
  87.  
  88.  
  89.